home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / FROMUTS / RISCBBS / !RiscBBS_Menus_Personal < prev    next >
Encoding:
Text File  |  1992-02-24  |  1.3 KB  |  52 lines
  1. {
  2.  report `Personal configurations`
  3.  
  4.  defopt A= `ANSI toggle` 10 ``
  5.    u_ansi -1
  6.    eoln
  7.    fg 3 send `ANSI graphics turned `
  8.    if ANSI send `ON` else send `OFF` endif 
  9.    eoln
  10.  endopt
  11.  
  12.  defopt P= `Prompts toggle` 10 ``
  13.    u_more -1
  14.    eoln
  15.    fg 3 send `More prompts turned `
  16.    if MORE send `ON` else send `OFF` endif
  17.    eoln
  18.  endopt
  19.  
  20.  defopt L= `Lines` 10 ``
  21.    eoln
  22.    fg 3 send `Howmany lines does your display have? [24] : `
  23.    fg 1 read V0 3
  24.    if "V0"=""
  25.      eval V0 24
  26.      send `24`
  27.    endif
  28.    eoln
  29.    u_lines V0
  30.  endopt
  31.  
  32.  attr 0 7 
  33. }
  34. {attr 4 3}  -- Personal Accounts --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  35.  
  36.         {fg 6}Username  : {fg 3 _user}
  37.         {fg 6}Userlevel : {fg 3 eval V0 LEVEL print V0}
  38.  
  39.         {fg 6}Downloaded        : {fg 3 eval V0 `DOWNL/1024` print V0 fg 1} Kb
  40.         {fg 6}Uploaded          : {fg 3 eval V0 `UPL/1024` print V0 fg 1} Kb
  41.         {fg 6}Ratio allowed     : {fg 3 eval V0 RA_D eval 1 RA_U print V0 send : print 1}
  42.         {fg 6}Free for download : {fg 3 eval V0 `(UPL*RA_D-DOWNL*RA_U)/1024` print V0 fg 1} Kb
  43.  
  44.         {fg 6}Time left this call : {fg 3 eval V0 `REMAIN/60` print V0 fg 1} minutes{fg 7}
  45.  
  46.      [{fg 1}A{fg 7}]NSI graphics toggle               [{fg 1}P{fg 7}]rompts (More?) toggle
  47.  
  48.      [{fg 1}L{fg 7}]ines per screen
  49.  
  50.      [{fg 1}M{fg 7}]ain menu
  51.  
  52.  {show <RiscBBS$Dir>.BBS.Select eof}